home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 3 Years / Tiger_Disk_3_Years_19xx_Tiger-Crew-Disk_de_Side_B.d64 / aus und vorbei ! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  973b  |  20 lines
  1. 10 printchr$(147)chr$(8);:poke53280,.:poke53281,0
  2. 15 forc=8to15:poke53281,c:print"";:printchr$(14):poke53270,24
  3. 20 print"[145][145][145][145][145]  *[145]  *     *                    ";:poke646,c*2
  4. 21 print"[157][157][157][157][157]*[157][157][157]                              *        ";"    *    *    "
  5. 22 print"                                       *"  :poke646,c+c:
  6. 23 print"                    *     *       *     ";:poke646,c/4
  7. 24 print"[157][157][157][157]*[157][157][157][157][157]    *         *      *   *              ";:poke646,c*5
  8. 25 print"[145]**               *    *    *       *      ";"          "
  9. 30 poke646,rnd(c)*(c-5)+1:poke53281,rnd(2)*(48-16)+c:poke646,peek(53280)
  10. 35 k$="       [193] u s   u n d   [214] o r b e i  ":printk$:gosub100
  11. 40 :poke646,peek(53281):next:gosub100
  12. 42 :print"[147]":printk$
  13. 43 poke53281,.:forz=1to300:next:print"[147][159]":printk$:poke56325,1
  14. 45 print"[156]    [194]is zur naechsten [196]isk![157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  15. 46 forz=1to1750:next:poke56325,58:     sys58253
  16. 100 poke54296,15:poke54278,49:poke54276,17:s=54294:m=54286
  17. 101 fort=40to50:poke54273,12+abs( 5-t):pokes+4,129:pokes+11,129:pokes+18,17
  18. 102 pokem+4,129:pokem+11,129:pokem+18,129:poke54284,87
  19. 103 next:poke54296,0:  return
  20.